home *** CD-ROM | disk | FTP | other *** search
/ Graphics Plus / Graphics Plus.iso / libs / vopl / glvopl.lha / glvopl / src / msfort / flsfit.asm < prev    next >
Encoding:
Assembly Source File  |  1989-06-06  |  625 b   |  37 lines
  1. ;    Static Name Aliases
  2. ;
  3.     TITLE   flsfit.for
  4.     NAME    flsfit
  5.  
  6.     .8087
  7. FLSFIT_TEXT    SEGMENT  BYTE PUBLIC 'CODE'
  8. FLSFIT_TEXT    ENDS
  9. _DATA    SEGMENT  WORD PUBLIC 'DATA'
  10. _DATA    ENDS
  11. CONST    SEGMENT  WORD PUBLIC 'CONST'
  12. CONST    ENDS
  13. _BSS    SEGMENT  WORD PUBLIC 'BSS'
  14. _BSS    ENDS
  15. DGROUP    GROUP    CONST, _BSS, _DATA
  16.     ASSUME  CS: FLSFIT_TEXT, DS: DGROUP, SS: DGROUP, ES: DGROUP
  17. EXTRN    __acrtused:ABS
  18. EXTRN    _degree:FAR
  19. FLSFIT_TEXT      SEGMENT
  20. ; Line 6
  21.     PUBLIC    DEGREE
  22. DEGREE    PROC FAR
  23.     push    bp
  24.     mov    bp,sp
  25. ;    I = 6
  26.     les    bx,DWORD PTR [bp+6]    ;I
  27.     push    WORD PTR es:[bx]
  28.     call    FAR PTR _degree
  29. ; Line 7
  30.     mov    sp,bp
  31.     pop    bp
  32.     ret    4
  33.  
  34. DEGREE    ENDP
  35. FLSFIT_TEXT    ENDS
  36. END
  37.